inherited frmCartaoCad: TfrmCartaoCad
  Left = 171
  Top = 149
  Caption = ''
  ClientHeight = 419
  ClientWidth = 845
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 382
    Width = 845
  end
  inherited Panel2: TPanel
    Width = 845
    Height = 382
    inherited Panel3: TPanel
      Width = 843
      Caption = 'Cart'#227'o de Cr'#233'dito'
      inherited GroupBox1: TGroupBox
        Left = 764
      end
    end
    inherited Panel4: TPanel
      Width = 843
      Height = 340
      object Label1: TLabel [0]
        Left = 10
        Top = 9
        Width = 33
        Height = 13
        Caption = 'Codigo'
      end
      object Label2: TLabel [1]
        Left = 87
        Top = 9
        Width = 28
        Height = 13
        Caption = 'Nome'
      end
      object Label3: TLabel [2]
        Left = 557
        Top = 9
        Width = 75
        Height = 13
        Caption = 'Taxa Rotativo%'
      end
      object Label4: TLabel [3]
        Left = 747
        Top = 9
        Width = 79
        Height = 13
        Caption = 'Dias vencimento'
      end
      object Label5: TLabel [4]
        Left = 455
        Top = 9
        Width = 51
        Height = 13
        Caption = 'N.Contrato'
      end
      object Label6: TLabel [5]
        Left = 90
        Top = 45
        Width = 63
        Height = 13
        Caption = 'Observa'#231#245'es'
      end
      object Label7: TLabel [6]
        Left = 652
        Top = 9
        Width = 83
        Height = 13
        Caption = 'Taxa Parcelado%'
      end
      inherited DBGrid1: TDBGrid
        Top = 123
        Width = 835
        TabOrder = 8
        Columns = <
          item
            Expanded = False
            FieldName = 'CODIGO'
            Title.Caption = 'C'#211'DIGO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NOME'
            Width = 223
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NCONTRATO'
            Title.Caption = 'N.CONTRATO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TAXAROTATIVO'
            Title.Caption = 'TAX. ROT %'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TAXAPARCELADO'
            Title.Caption = 'TAX. PARC %'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DIASVENCIMENTO'
            Title.Caption = 'DIAS VENCIMENTO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'OPERACAO_TIPO'
            Title.Caption = 'OPERA'#199#195'O'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'OPERACAO'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'PAGAMENTO'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'OBSERVACAO'
            Visible = False
          end>
      end
      inherited SbHints: TStatusBar
        Top = 317
        Width = 835
      end
      object EdtCacCodigo: TDBEdit
        Left = 10
        Top = 22
        Width = 65
        Height = 21
        Hint = 'C'#243'digo do cart'#227'o'
        CharCase = ecUpperCase
        DataField = 'CAC_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = EdtCacCodigoExit
      end
      object EdtCacNome: TDBEdit
        Left = 87
        Top = 22
        Width = 365
        Height = 21
        Hint = 'Nome do cart'#227'o'
        CharCase = ecUpperCase
        DataField = 'CAC_NOME'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnExit = EdtCacNomeExit
      end
      object EdtCacContrato: TDBEdit
        Left = 455
        Top = 22
        Width = 103
        Height = 21
        Hint = 'Numero do contrato com o cart'#227'o'
        CharCase = ecUpperCase
        DataField = 'CAC_CONTRATO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object EdtCacTaxa: TDBEdit
        Left = 559
        Top = 22
        Width = 92
        Height = 21
        Hint = 'Percentual da taxa rotativo'
        CharCase = ecUpperCase
        DataField = 'CAC_TAXA'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object DBRG_Operacao: TDBRadioGroup
        Left = 7
        Top = 47
        Width = 77
        Height = 67
        Hint = 'Opera'#231#227'o do cart'#227'o'
        Caption = 'Opera'#231#227'o'
        DataField = 'CAC_OPERACAO'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Cr'#233'dito'
          '&D'#233'bito'
          '&Ambos')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        Values.Strings = (
          'C'
          'D'
          'A')
      end
      object EdtCacVencimento: TDBEdit
        Left = 746
        Top = 22
        Width = 90
        Height = 21
        Hint = 'dia do vencimento'
        CharCase = ecUpperCase
        DataField = 'CAC_DIASVENCIMENTO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
      end
      object DBMemo1: TDBMemo
        Left = 87
        Top = 58
        Width = 746
        Height = 56
        Hint = 'Observa'#231#245'es'
        DataField = 'CAC_OBSERVA'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
      end
      object EdtTaxaParcelado: TDBEdit
        Left = 654
        Top = 22
        Width = 90
        Height = 21
        Hint = 'Percentual da taxa parcelado'
        CharCase = ecUpperCase
        DataField = 'CAC_TAXA_PARC'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Cartao_Cadastros
    Left = 64
  end
  inherited DtSrcDBGrid: TDataSource
    Top = 352
  end
  inherited ZSQLC_ConsultaDbGrid: TZReadOnlyQuery
    SQL.Strings = (
      'SELECT CAC_CODIGO CODIGO, CAC_NOME NOME, CAC_CONTRATO '
      
        'NCONTRATO, CAC_TAXA TAXAROTATIVO, CAC_DIASVENCIMENTO DIASVENCIME' +
        'NTO,'
      
        'CAC_OPERACAO OPERACAO, CAC_PAGAMENTO PAGAMENTO, CAC_OBSERVA OBSE' +
        'RVACAO,'
      
        'CAC_TAXA_PARC TAXAPARCELADO FROM CARTAO_CADASTRO ORDER BY CAC_NO' +
        'ME')
    Left = 177
    Top = 273
  end
  inherited CDS_Consulta_DbGrid: TClientDataSet
    OnCalcFields = SQLC_ConsultaDbGridCalcFields
    object CDS_Consulta_DbGridCODIGO: TStringField
      FieldName = 'CODIGO'
      Required = True
      Size = 15
    end
    object CDS_Consulta_DbGridNOME: TStringField
      FieldName = 'NOME'
      Required = True
      Size = 40
    end
    object CDS_Consulta_DbGridNCONTRATO: TStringField
      FieldName = 'NCONTRATO'
      Size = 15
    end
    object CDS_Consulta_DbGridTAXAROTATIVO: TFloatField
      FieldName = 'TAXAROTATIVO'
    end
    object CDS_Consulta_DbGridDIASVENCIMENTO: TIntegerField
      FieldName = 'DIASVENCIMENTO'
    end
    object CDS_Consulta_DbGridOPERACAO: TStringField
      FieldName = 'OPERACAO'
      Required = True
      Size = 1
    end
    object CDS_Consulta_DbGridPAGAMENTO: TStringField
      FieldName = 'PAGAMENTO'
      Size = 1
    end
    object CDS_Consulta_DbGridOBSERVACAO: TMemoField
      FieldName = 'OBSERVACAO'
      BlobType = ftMemo
    end
    object CDS_Consulta_DbGridTAXAPARCELADO: TFloatField
      FieldName = 'TAXAPARCELADO'
    end
    object CDS_Consulta_DbGridOPERACAO_TIPO: TStringField
      FieldKind = fkCalculated
      FieldName = 'OPERACAO_TIPO'
      Size = 7
      Calculated = True
    end
  end
  object SQLC_Cartao_Cadastros: TSQLClientDataSet
    CommandText = 'select * from CARTAO_CADASTRO where cac_codigo =:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 67
    Top = 315
    object SQLC_Cartao_CadastrosCAC_CODIGO: TStringField
      DisplayLabel = 'CODIGO'
      FieldName = 'CAC_CODIGO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 10
    end
    object SQLC_Cartao_CadastrosCAC_NOME: TStringField
      DisplayLabel = 'NOME'
      FieldName = 'CAC_NOME'
      Required = True
      Size = 35
    end
    object SQLC_Cartao_CadastrosCAC_CONTRATO: TStringField
      DisplayLabel = 'CONTRATO'
      FieldName = 'CAC_CONTRATO'
      Size = 15
    end
    object SQLC_Cartao_CadastrosCAC_TAXA: TFMTBCDField
      DisplayLabel = 'TAXA'
      FieldName = 'CAC_TAXA'
      DisplayFormat = '###,###,###.00'
      Precision = 15
      Size = 3
    end
    object SQLC_Cartao_CadastrosCAC_TAXA_PARC: TFMTBCDField
      DisplayLabel = 'TAXA PARCELADO'
      FieldName = 'CAC_TAXA_PARC'
      DisplayFormat = '###,###,###.00'
      Precision = 15
      Size = 3
    end
    object SQLC_Cartao_CadastrosCAC_DIASVENCIMENTO: TIntegerField
      DisplayLabel = 'DIAS_VENCIMENTO'
      FieldName = 'CAC_DIASVENCIMENTO'
    end
    object SQLC_Cartao_CadastrosCAC_OPERACAO: TStringField
      DisplayLabel = 'OPERACAO'
      FieldName = 'CAC_OPERACAO'
      Size = 1
    end
    object SQLC_Cartao_CadastrosCAC_PAGAMENTO: TStringField
      DisplayLabel = 'PAGAMENTO'
      FieldName = 'CAC_PAGAMENTO'
      Size = 1
    end
    object SQLC_Cartao_CadastrosCAC_OBSERVA: TMemoField
      DisplayLabel = 'OBSERVA'
      FieldName = 'CAC_OBSERVA'
      BlobType = ftMemo
      Size = 1
    end
  end
end
